1,STORMY ,ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 2,THUMB ,ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 3,LIZARD ,ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 4,RED RD ,ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 5,IMP RD ,ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 6,C-HORSE ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 7,WIDGET ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET,KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK   ***** RANDOM PRINT *****< "RANDOM FILES":4,4b"FILE NAME";FF$:"READ OR WRITE"tK$:K$""20K$"W"100K$"R"400c **** TO WRITE RANDOM FILE ****d15,8,15,"I":M$(44)n10,8,10,"#" x5,8,5,"@:"F ) ******** COMMAND DEMO ********2150Ic15,EN,EM$,ET,ES:id *** VIEW DIRECTORY ***e1,8,0,"$":P$"#"f#1,A$,B$i#1,A$,B$j#1,A$,B$nC0:A$""C(A$)pB$""CC(B$)256rC;5);t#1,B$:ST0140 N READY":53281,15:53280,4:""R K1$R$" ANY KEY WHEN READY "R$ K2$R$" RETURN TO CONT / _ TO ESCAPE"R$ " COMMAND DEMO -- DIRECTIONS":T1500: R$" [1] CHOOSE PRACTICE DISK"R$- " DO NOT  INSERT PRACTICE DISK"R$R$K1$* K$:K$""210J 15,8,15,"I":99:EN20230d EN;EM$,ET"-"ES:15: "DISK DIRECTORY"R$R$:100:K2$ K$:K$""240 K$"_"15: K$R$240 "TO WRITE TEST FILES" I14:F$(I)"FILE"(I)Y":100:K1$ K$:K$""268."TO READ TEST FILES"KI14:F$(I)"FILE"(I)l6,8,6,"0:"F$(I)",S,R":99{EN20280EN62EM$;:6:15:" NOT ON THIS DISK.":EN;EM$,ET"-"ES:6:15:6,D1$,D2$,D3$"READING "F$(I):OMBO 1,S,R":99FEN20330+GEN;EM$,ET"-"ES:6:15:CJ6,D$:D$:ST0330^O"READING COMPLETE":6T"HERE'S THE CHANGE IN THE DIRECTORY":100:K1$YK$:K$""345^"TO COMBINE THE TEST FILES ANOTHER WAY"h15,"C0:COMBO 2=0:FILE#******GET SEQ FILE*******0 '#** RUN 9000 **L (#5,8,5,"RND SAMPLE,S,R"\ 2##5,G$:G$;l <#ST645:v F#9010 &***READ ERROR CHANNEL**** &15,EN,EM$,ET,ES &EN20 &EN20 &EN;EM$,ET,ES:5:10:15: C$"#"N$C$ THE DIRECTORY":100:K1$K$:K$""3952"TO RENAME A FILES"L15,"R0:HOLD=COMBO 1"_99:EN20420|EN;EM$,ET"-"ES:6:15:R$R$"TO READ HOLD FILE"6,8,6,"0:HOLD,S,R":99EN20430EN;EM$,ET"-"ES:6:15:6,D IN FILE"( ST04,"LAST RECORD IN FILE"= NRNST0440K NRN500h "RECORD NOT FOUND":540 4,"RECORD NOT FOUND" "#"N" TRACK-"T" SECTOR"S 4,"#"N" TRACK-"T" SECTOR"S 15,"B-R:"10;0;T;S 10,N$,D$ C$"#"N$C$ WHOSE NAMES START";" WITH FILE "R$K2$(K$:K$""455=K$"_"6:15:MK$R$455a15,"S0:FILE ?"t99:EN20464EN;EM$,ET"-"ES:6:15:ET;EM$R$K1$K$:K$""465100:K1$K$:K$""468"TO SCRATF$",S,W":N1:9900, N$(N):"DATA $";D$; 10,N$M$D$E 8000_ "TRACK-"T,"SECTOR-"Sr 5,N;M$;T;M$;S 15,"B-W:"10;0;T;S "ANOTHER(Y/N) K$:K$""261 K$"Y"NN1:200 K$"N"261 5:10:15 +  **** TO R vB$(34)B$;# wB$(34)116C x#1,B$:B$(34)B$;:120V zB$(34)B$;u #1,B$:B$(32)P$;:130 32);:C$"" C$C$B$: #1,B$:B$""134 (C$,3) ST0105 " BLOCKS FREE ":1: R$(13):K1$"ANY KEY WHEUSE ONE THAT CONTAINS:"R$R$6)"FILE 1"20)"COMBO 1"b 6)"FILE 2"20)"COMBO 2"R$6)"FILE 3"20)"HOLD"w 6)"FILE 4"R$R$ " USE A FORMATTED DISK OF COURSE!"R$ " FOR BEST RESULTS:"R$" USE A DISK THAT HAS VERY FEW ENTRIES"R$ " [2] 6,8,6,"0:"F$(I)",S,W":99& EN20260R EN63EM$;:6:15:" ON THIS DISK.":o EN;EM$,ET"-"ES:6:15: "DATA(2 ITEMS-KEEP 'EM SHORT)";D1$,D2$ "WRITING "F$(I):6,D1$R$D2$R$F$(I) 6: "HERE'S THE CHANGE IN THE DIRECTORD1$R$D2$R$D3$R$ 6:6"NO CHANGE IN THE DIRECTORY":100:K1$I K$:K$""288k,"TO COMBINE THE TEST FILES"615,"C0:COMBO 1=0:FILE 2,0:FILE 4";99:EN20320<EN;EM$,ET"-"ES:6:15:@R$R$"TO READ COMBO FILE"E6,8,6,"0:C 1,0:FILE 2,0:FILE 3"m99:EN203703nEN;EM$,ET"-"ES:6:15:SrR$R$"TO READ COMBO 2 FILE"rw6,8,6,"0:COMBO 2,S,R":99xEN20380yEN;EM$,ET"-"ES:6:15:|6,D$:D$:ST0380"READING COMPLETE":6"HERE'S THE CHANGE INEN20487 EN;EM$,ET"-"ES:6:15:ET;EM$R$K1$.K$:K$""488v100:R$"END OF COMMAND DEMO"R$R$"DON'T FORGET TO SCRATCH HOLD.""USE COMMAND BELOW IF ACTIVE"R$R$"@S:HOLD"100:K1$K$:K$""468"TO SCRAT D$:D$:ST0430"READING COMPLETE":6I"HERE'S THE CHANGE IN THE DIRECTORY":100:K1$\K$:K$""445~"TO SCRATCH THE TEST FILES"R$R$" W A R N I N G ! ! "R$R$"THIS PHASE WILL SCRATCH ALL FILES AND"R$"PROGRAMSD$ 4,C$"#"N$C$D$C$C$C$1 5:"READ ANOTHER(Y/N)"D K$:K$""541Z K$"N"10:15:k K$"Y"541t &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0,T,S ^15,EN,EM$,ET,ES hEN65TET:SES:8020 r " &CH THE COMBO FILES"'R$R$" W A R N I N G ! ! "R$R$s"THIS PHASE WILL SCRATCH ALL FILES AND"R$"PROGRAMS WHOSE NAMES START";" WITH COMBO "R$K2$K$:K$""475K$"_"6:15:K$R$47515,"S0:COMBO ?"99:EAD RANDOM FILE ***** 15,8,15,"I":C$(13); 10,8,10,"#"W 5,8,5,FF$",S,R":9900 "WHICH RECORD TO READ?":RN:C$" #"," T"," S","STATUS"C$ 4," N"," T"," S"," ST" 5,N,T,S:N,T,S,ST:XST 4,N,T,S,X ST0"LAST RECOR d *** GEN REL PRINT ***:e ***PRINTER REQUIRED***AnDbs DIM DC$(D),L(D),P(D),D$(D)mxI1D~}DC$(I),L(I)P(I)L(I1)P(I1)1LP(I)L(I)D$(I)"-""GEN REL PRINT":"PRINTER REQUIRED":9500:4,4:R$(13)  " 10 - CHANGE ALL" 1 TO 9 - FIELD CHANGE2N:N0N101725?N0340UN102030:1715aDC$(N)lD$(N)D$(N)(D$(N),L(N))"ANOTHER FIELD?(0-9)":NN01775N1N917551740I1DPP(I) Jw340x ** WRITE INDIVIDUAL RECORD **1"RECORD #";RN;2000U"ANY KEY FOR MENU"iK$:K$""1435r340 ** READ IN SEQUENCE **"READ IN SEQUENCE STARTING WITH""RECORD #";S"READ TO #";AJSA D$(I)(D$(I),L(I)) 77773,D$(I)9999# )3A ** READ RECORD **K8888U9100qC$"*"4,R$"#"RN;C$:C$"*"""RN" NOT WRITTEN":340""FF$20)"#"RN""I1DPP(I)77773,D$(I)00P1I1NRNI8888$7777/3,"*"99999?H340` ** EXPAND FILE **x"EXPAND: "FF$"WILL DESTROY DATA IF USED ON OLD FILE""CURRENT LAST RECORD #":S"NUMBER OF RECORDS TO ADD":A#9999#C$(255)""RN" NOT PRESENT":340#-% ** WAIT ***]&%"TYPE - C TO CONTINUE / _ ESCAPE TO MENU"q0%K$:K$""9520:%K$"_""":340D%K$"C"9520%% **** PRINT HARD COPY ****%" F1 - TO PRINT, C - CON"FF$", REC #"RN"" h"JOB #";M( rM1M93609 |M83:310V M93:15:4,R$R$:4: M1100,1200,1300,1400,1500,1600,1700 9 LAST NAME,16 FIRST NAME,12 SOC SEC #,11 CLASS(9-12),2 SEX(M/F),1 AVE(X.XX),4 l10>NS791,121:C791,10:S792,121:C792,102?NS793,78:C793,10:S785,77:C785,CC>N9998:5NS826,77:C826,CC:S836,78:C836,CCCC6NS867,77:C867,CC:S868,121:C868,CC7NS869,121:C869,CC:S870,121:C870,CC8NS871,1 'K$"C"293 ,15,8,15. 6"FILE NAME";FF$I ;4,R$R$(14)FF$(15)R$c @3,8,3,FF$",L,"(L)m A9999 E"ANY KEY TO CONTINUE" GK$:K$""327 J"" T18)"MENU":"FILE: "FF$"" U"1 - CREATE NEW FILE V" 2 - EXPAND EM$,RN:3408'EN;EM$,ET;ES:3:15:4 N. N **** SECONDARY PROGRAM ****EN"":15,8,15:4,4aN"FILE NAME";FF$:4,FF$wN3,8,3,FF$:21000N"RECORD #";RN:8888N"LENGTH";LN4,"RN="RN" L="LN15,"P"(3)(LO)(HI)(1):21000"FILE FORMAT7 "CATAGORY"20)"LENGTH POSITION"B I1D^ DC$(I)20)L(I)30)P(I)d "RECORD LENGTH = "L"" L254"TOO LONG" " F1 - TO PRINT, C - CONT, _ - ESCAPE" K$:K$""265 K$"_" K$"C"30077773,D$(I)9999 1715/ **** SUBROUTINES ****H ** WRITE RECORD **\"RECORD #"RNf8888p9100C$"*"2029RN" HAS BEEN WRITTEN"9500I1DPP(I)DC$(I)"["L(I)" SPACES]"D$(I)RNJ40009500J?"":340@@ ** READ INDIVIDUAL RECORD **SJ"RECORD #";RN]T4000w^"ANY KEY FOR MENU"cK$:K$""1635340 ** EDIT RECORD **"RECORD #";RN4000"TYPE: 0 - NO CHANGE9999I" "DC$(I)22)D$(I)96005a ** POSITION POINTER **Sd15,"P"(3)(LO)(HI)(P)]e9999cw" ** RECORD # ALGORITHM **"HI(RN256)"LORNHI256"# ** CHECK RECORD **#P1#7777##3,C$9500P1IS1SARNI#8888-777783,"*"B9999H Q340o ** WRITE IN SEQUENCE **"WRITE IN SEQUENCE STARTING WITH""RECORD #";S#"WRITE TO #";A(JSA2RNJ<2000F9500P T, _ - ESCAPE"%K$:K$""9615%K$"_"340!%K$"C"6%K$(133)9615E%4,R$"#"RNZ%4,D$(1)","D$(2)u%I3D:4," "D$(I):{%' ** ERROR CHANNEL READ **'15,EN,EM$,ET,ES'EN20$'EN50M3M7.'EN50D.O.B.(XX-XX-XX),8"PHONE#(XXX-XXXX),81COMMENT,9ML ** CREATE NEW FILE **eV"CREATE: "FF$`"WILL DESTROY DATA IF USED ON OLD FILE"a9500j"DIRECTORY ENTRY CREATED"o"ANTICIPATED NUMBER OF RECORDS":Nt95PEN20REN50G$:4,G$(13):3:15:4:&REN;EM$,ET;ES:3:15:4:*EN"":15,8,15:4,4aN"FILE NAME";FF$:4,FF$wN3,8,3,FF$:21000N"RECORD #";RN:8888N"LENGTH";LN4,"RN="RN" L="LN15,"P"(3)(LO)(HI)(1):21000FILE W" 3 - WRITE IN SEQUENCE< X" 4 - WRITE INDIVIDUAL RECORD^ Y" 5 - READ/PRINT IN SEQUENCE Z" 6 - READ/PRINT EXISTING RECORD [" 7 - EDIT EXISTING RECORD \" 8 - CHANGE FILE ]" 9 - END RUN ^M0"LAST JOB: "M c"FILE: NI1LN#3,G$:21000 NG$(13)G$"_"NG$""G$""2NG$(0)G$" "BNG$;:4,G$;`NI40(I40).00014,R$fNN(13)"ANOTHER RECORD?(Y/N)"NK$:K$""20210NK$"Y"20130R3:15:4:R15,EN,EM$,ET,ESR K$(133)265T 4,R$R$"FILE FORMAT"R$R$"CATAGORY"(16)"20LENGTH POSITION"R$ "I1D:4,DC$(I)(16)"20"L(I)(16)"30"P(I): #4,R$"RECORD LENGTH = "L $" C - CONT, _ - ESCAPE " %K$:K$""293 &K$"_"4:  *****ON LOADING*****EC$(13):Q$(34):O$(18):OF$(146)CD$"":HM$"":KK$" WHEN READY - HIT KEY."53281,1:53280,13:H$(30):M$(151):M$:L$(152)LD$O$H$"LOAD"OF$M$ KK$""O$"  R."C$""[B] THE RED LIGHT FLASHES."C$5""[C] YOU KICK YOURSELF."C$e$""[D] BOTH [A] AND [B] AND USUALLY [C]."C$.""[E] SYSTEM REACHES OUT AND INSERTS A/"" DISK FOR YOU."C$8""[F] SYSTEM BLOWS UP IN YOUR FACE."C$V"C$L$"(A/B RED LIGHT !"FLASHES?"C$.!"[A] SHOUT "Q$"BLEEPS"Q$"."C$I!"[B] REMAIN CALM."C$g!"[C] TYPE "Q$"@"Q$"."C$!"[D] REPEAT "LD$" WITH CORRECTED PROGRAM!" NAME."C$!"[E] HOPE FOR THE BEST."C$!"[F] IF ALL ELSE FAILS REA READ YOUR MIND."C$)t""[B] SYSTEM SAYS ''PRESS PLAY ON TAPE''."Su"" THEN YOU HAVE TO HIT RUN/STOPuv"" AND START ALL OVER."C$~""[C] SYSTEM BLOWS UP IN YOUR FACE."C$"C$L$"(A/B/C)"M$C$""CA$(I)"C":"MULTIPLE CHOICE"C$C$OM THE DISK DRIVE,"C$6 "THE DISK IN THE DRIVE MUST CONTAIN THEQ "PROGRAM YOU SPECIFY.h L$"(T/F)"M$C$n3!4!CA$(I)"A":"MULTIPLE CHOICE"C$C$9!"WHAT HAPPENS WHEN THE DISK DOES NOT:!"CONTAIN THE PROGRAM YOU SPECIFY?"C$ >!"[ENS TO THE PROGRAM IN COMPUTER,.#"MEMORY AFTER YOUR SEND A CORRECT "LD$>/#"COMMAND?"C$a2#"[A] IT IS GONE!!!!!REPLACED3#" BY THE PROGRAM YOU "LD$"ED."C$<#"[A] IT IS GONE!!!!!REPLACED=#" BY THE PROGRAM YOU "LD$"ED."C$F#"[$ "TO "LD$" FROM THE DISK DRIVE,"C$I "THERE MUST BE A DISK IN THE DRIVE.` L$"(T/F)"M$C$f   CA$(I)"T":"TRUE OR FALSE"C$C$ "TO "LD$" FROM THE DISK DRIVE,"C$  "YOU MUST SPECIFY THE NAME OF THE PROGRAM  "YOU WISH T02:C999I,CC:%: 'M$:'HM$CD$H$KK$:9999:+'K$:K$""99991'O NS1024:C55296:CC9:DD42|!NS507,78:C507,CC:S508,113:C508,CC"NS509,113:C509,CC:S510,113:C510,CC#NS511,113:C511,CC:S512,113:C512,CC$064J,67:55336J,13: A(I)0399Y I8100,8200,8300,8400,8500,8600,8700,8800,8900,9000e SA$(I) "SA$(I)CA$(I)"CORRECT"M$:20000:CTCT1:A(I)0:399 ,"WHOOPS!!"M$"THE CORRECT ANSWER IS "O$" "M$CA$(I)" ":9998  9500% 118:C637,CC*NS677,118:C677,CC:S717,118:C717,CCB+NS757,118:C757,CC:S797,78:C797,CCp5NS826,77:C826,CC:S836,78:C836,CCCC6NS867,77:C867,CC:S868,121:C868,CC7NS869,121:C869,CC:S870,121:C870,CC8NS871,1 WHEN READY - HIT KEY ߑ"F$) c9500L d" ON LOADING i"THIS IS A LITTLE QUIZ ON THE MAIN THINGSTO REMEMBER ABOUT "LD$M$"ING."C$ nC$"WANT TO TRY IT?"L$"(Y/N)"C$"I.E. TYPE "M$"Y"L$" OR "M$"N"L$".":9999 xK$"N"H$"/C/D/E/F)"M$C$_""`"CA$(I)"B":"MULTIPLE CHOICE"C$C$Oe""WHAT HAPPENS IF YOU FORGET TO TYPE THExf"",8 IN THE "LD$" COMMAND BELOW"C$g"" LOAD''PROGRAM NAME,8''"C$j""[A] SYSTEM LOADS FROM THE DRIVE ANYWAYk"" SINCE IT CAND TEXT WHILE!" THE RED LIGHT FLASHES."C$H!"[G] ANY AND/OR ALL OF THE ABOVE."C$e!C$L$"(A/B/C/D/E/F/G)"M$k!!CA$(I)"D":"MULTIPLE CHOICE"C$C$""WHAT HAPPENS IF THE IS NO DISK IN THE""DRIVE?"C$""[A] YOU HEAR A CLATTE""WHICH OF THESE ARE LEGAL COMMANDS TO"LD$"?"C$B""[A] LOAD''PROGRAM NAME,8''"C$^""[B] /PROGRAM NAME"C$""[C] BOTH BUT [B] ONLY IF WEDGE ACTIVE."C$#C$L$"(A/B/C)"M$C$'#(#CA$(I)"A":"MULTIPLE CHOICE"C$C$-#"WHAT HAPPA] RED LIGHT FLASHES."C$8H!"[B] SYSTEM READS YOUR MIND, REACHES OUTcI!" AND INSERTS A DISK FOR YOU."C$R!"[C] SYSTEN BLOWS UP IN YOUR FACE."C$!C$L$"(A/B/C)"M$C$!!CA$(I)"G":"MULTIPLE CHOICE"C$!"WHAT DO YOU DO WHEN THEA] IT IS GONE!!!!!REPLACED%G#" BY THE PROGRAM YOU "LD$"ED."C$HP#"[A] IT IS GONE!!!!!REPLACEDrQ#" BY THE PROGRAM YOU "LD$"ED."C$#C$L$"(A/A/A/A)"M$C$#%"":CC5&%C55296:S1024:I070%SI,102:CI,CC5%S999I,1O "LD$ L$"(T/F)"M$C$k ;l CA$(I)"T":"TRUE OR FALSE"C$C$bq "TO "LD$" FROM THE DISK DRIVE,"C$r "YOU MUST HAVE A FORMATTED DISK IN THEs "DRIVE" L$"(T/F)"M$C$  CA$(I)"T":"TRUE OR FALSE"C$C$ "TO "LD$" FR NS513,113:C513,CC:S514,113:C514,CC2%NS515,77:C515,CC:S546,78:C546,CC^&NS556,77:C556,CC:S585,78:C585,CC'NS597,77:C597,CC:S625,117:C625,CC(NS665,117:C665,CC:S705,117:C705,CC)NS745,117:C745,CC:S637,M$" YOU SCORED "CT" OUT OF 10"F H$" "CT10100"%"j CT10CC13:9510:20000:M$: M$"WANT TO REVIEW THE ONES YOU MISSED?"C$L$"(Y/N)":9998 K$"Y"240 &17)"THE END"M$: CA$(I)"T":"TRUE OR FALSE"C$C21:C871,CC:S872,121:C872,CC'9NS873,121:C873,CC:S874,121:C874,CCS:NS875,78:C875,CC:S711,87:C711,CC;NS629,42:C629,14:S633,42:C633,14G$;J CG$"*"820R HC$Y I3a J30v '15,EN,EM$,ET,ES 'EN20 'EN;EM$,ET;ES:3:15:,"*":3:30 rK$"Y"350 |320 "TO CHANGE: "FF$C$ "SHOULD "FF$" BE Q":40 ,3,8,3,FF$",S,W"2 6"TO WRITE: "FF$C$A @"NAME";N$U J"TEST SCORE";Tb T3,N$M$Tl U9999 ^"ANOTHER?(Y/N)" cK$:K$""355 hK$"N"3,"*":3:30 rK$"Y"350 |320 "TO CHANGE: "FF$C$ "SHOULD "FF$" BE SC "FF$C$ 4#3,G$ 59999, 9G$(13)G$"_"5 >G$;F CG$"*"820U HC$:3:30\ I3d J30y '15,EN,EM$,ET,ES 'EN20 'EN;EM$,ET;ES:3:15:3:30 rK$"Y"350 |320 "TO CHANGE: "FF$C$ "SHOULD "FF$" BE SCK$"C"400& AK$"W""R,W,G,C,Q":40B ,3,8,3,FF$",S,W":9999Z 6"TO WRITE: "FF$C$i @"NAME";N$~ J"TEST SCORE";T$ T3,N$M$T$ U9999 ^"ANOTHER?(Y/N)" cK$:K$""355 hK$"N"3,"*":3:30 rK$"Y"350 |320 "TO "*"3:4,C$C$:30 vN$25)T$$ 620: 3,8,3,FF$",S,R"G %4,C$FF$Z *"GET: "FF$C$e 4#3,G$o 59999 9G$(13)G$"_" >G$;:4,G$; CG$"*"820 HC$:4,C$ I3 J30 '15,EN,EM$,ET,ES 'EN20 'EN;EM$,ET;ES:XISTING RECORD \" 8 - CHANGE FILE2 ]" 9 - END RUNL ^M0"LAST JOB: "Ml c"FILE: "FF$", REC #"RN""{ h"JOB #";M rM1M9360 |M83:310 M93:15: M1100,1200,1300,1400,1500,1600,1700 9 LAST NAME,16  ""RECORD #";S#"WRITE TO #";A&(JSA/2RNJ9<2000CF9500JPJSw340wx ** WRITE INDIVIDUAL RECORD **"RECORD #";RN2000"ANY KEY FOR MENU"K$:K$""1435340 ** READ IN SEQUENCE **"  ** EDIT RECORD **"RECORD #";RN"4000="TYPE: 0 - NO CHANGEX" 10 - CHANGE ALLu" 1 TO 9 - FIELD CHANGEN:N0N101725N0340N102030:1715DC$(N)D$(N)D$(N)(D$(N),L(N))"ANOTHER  EN WRITTEN"9500 I1DPP(I)2DC$(I)"["L(I)" SPACES]"=D$(I)UD$(I)(D$(I),L(I))_ 7777l3,D$(I)v9999| 3 ** READ RECORD **88889100C$"*"""RN" NOT WRITTEN":340""FF$20)" CHECK RECORD **#P1#7777##3,C$#9999H#C$(255)""RN" NOT PRESENT":340N#`% ** WAIT ***&%"TYPE - C TO CONTINUE / _ ESCAPE TO MENU"0%K$:K$""9520:%K$"_""":340D%K$"C"9520%' ** ERROR CHGTH";L N15,"P"(3)(LO)(HI)(1):21000NI1L*N#3,G$:21000?NG$(13)G$"_"QNG$""G$""ZNG$;`NN(13)"ANOTHER RECORD?(Y/N)"NK$:K$""20210NK$"Y"20130R3:15:R15,EN,EM$,ET,ESREN20RE "RANDOM FILES">"FILE NAME";FF$:"READ OR WRITE"PK$:K$""20aK$"W"100rK$"R"400xc **** TO WRITE RANDOM FILE ****d15,8,15,"I":M$(44)n10,8,10,"#"x5,8,5,"@:"FF$",S,W":N1:9900 N$(N):"":C$(13) 10,8,10,"#"3 5,8,5,FF$",S,R":9900s "WHICH RECORD TO READ?":RN:C$" #"," T"," S","STATUS"C$ 5,N,T,S:N,T,S,ST ST0"LAST RECORD IN FILE" NRNST0440 NRN500 "RECORD NOT FOUND":540 "#"N" TES hEN65TET:SES:8020 r! "@ &#******GET SEQ FILE*******_ '#** RUN 9000 **{ (#5,8,5,"RND SAMPLE,S,R" 2##5,G$:G$; <#ST645: F#9010 &***READ ERROR CHANNEL**** &15,EN,EM$,ET,ES &EN20 &EN20 FIRST NAME,12 SOC SEC #,11* CLASS(9-12),2: SEX(M/F),1K AVE(X.XX),4c D.O.B.(XX-XX-XX),8{ PHONE#(XXX-XXXX),8 COMMENT,9 L ** CREATE NEW FILE ** V"CREATE: "FF$ `"WILL DESTROY DATA IF USED ON OLD FILE" a ON OLD FILE"$"CURRENT LAST RECORD #":SH"NUMBER OF RECORDS TO ADD":AR9500ZP1iIS1SArRNI|888877773,"*"9999 340 ** WRITE IN SEQUENCE **"WRITE IN SEQUENCE STARTING WITHREAD IN SEQUENCE STARTING WITH"%"RECORD #";S9"READ TO #";ADJSAMRNJW4000a9500hJv?"":340@ ** READ INDIVIDUAL RECORD **J"RECORD #";RNT4000^"ANY KEY FOR MENU"cK$:K$""1635340FIELD?(0-9)":N N01775N1N91755%17400I1D;PP(I)E7777R3,D$(I)\9999bl1715 **** SUBROUTINES **** ** WRITE RECORD **"RECORD #"RN88889100C$"*"2029RN" HAS BE#"RN""I1DPP(I)77773,D$(I)&9999?I" "DC$(I)22)D$(I)EKha ** POSITION POINTER **d15,"P"(3)(LO)(HI)(P)e9999w" ** RECORD # ALGORITHM **"HI(RN256)"LORNHI256"# **ANNEL READ **'15,EN,EM$,ET,ES'EN20)$'EN50M3M7A.'EN50EM$,RN:340Z8'EN;EM$,ET;ES:3:15`N N **** SECONDARY PROGRAM ****N"":15,8,15N"FILE NAME";FF$N3,8,3,FF$:21000N"RECORD #";RN:8888N"LENN;EM$,ET;ES:3:15:N,EM$,ET,ES'EN20)$'EN50M3M7A.'EN50EM$,RN:340Z8'EN;EM$,ET;ES:3:15`N N **** SECONDARY PROGRAM ****N"":15,8,15N"FILE NAME";FF$N3,8,3,FF$:21000N"RECORD #";RN:8888N"LENDATA $";D$ 10,N$M$D$! 8000; "TRACK-"T,"SECTOR-"SN 5,N;M$;T;M$;Se 15,"B-W:"10;0;T;Sx "ANOTHER(Y/N) K$:K$""261 K$"Y"NN1:200 K$"N"261 5:10:15 +  **** TO READ RANDOM FILE **** 15,8,15,"IRACK-"T" SECTOR"S# 15,"B-R:"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, &EN;EM$,ET,ES:5:10:15::"10;0;T;S1 10,N$,D$B C$"#"N$C$D$` 5:"READ ANOTHER(Y/N)"s K$:K$""541 K$"N"10:15: K$"Y"541 &420 @******BLOCK ALLOCATE******** JT1:S1 T15,"B-A:"0;T;S ^15,EN,EM$,ET, 9500 j"DIRECTORY ENTRY CREATED"C o"ANTICIPATED NUMBER OF RECORDS":NM t9500U P1` I1Ni RNIs 8888} 7777 3,"*" 9999  340  ** EXPAND FILE ** "EXPAND: "FF$"WILL DESTROY DATA IF USED  c ***** EXP$-PRINT *****RdN$"0123456789 123456789 123456789 123456789"}e""N$:1,8,0,"$":X$"@":Y$"*":Z$"#"f #1,A$,B$:"12"(A$(0))(B$(0))i #1,A$,B$:"34"(A$(0))(B$(0))j #1,A$,B$kA$"""A"; lB$"""B :B$(32)Y$;:130 C$""; C$C$B$: #1,B$:B$""134J (C$,3)Z$X ST0105o " BLOCKS FREE":1z END  END  ***** SCREEN DUMP ***** SI$(15):B$(8):PO$(16) RV$(18):RO$(146):QT$(34) MF$(145):VRC64:1160 tSC31SC64ASSC:1160? ~SC63SC96ASSC32:1160Q AS$AS$(AS)l RF1AS$AS$RO$:RF0t RO QF04,SI$PO$"20"AS$:1210 4,SI$PO$"20"AS$AS$QT$ CL:4,SI$:4(18):RO$(146):QT$(34) MF$(145):VRSMITH JOHN 111 11 1111 11 M 1.11 11 11 67 111-1111 8 JONES MARY 222 22 2222 12 F 2.22 2FEB67 222-2222 TRANSFER IMAGINATION NONE 333 33 3333 3 N 3.33 33 33 33 333 3333 DULL * 123 12 1234 XX X X.XX XX XX XXX XXXX XXXXXXXXX ANOTHER SAMPLE NA 9 N 4.00 31FEB65 123 4567 123456789 "1ST,100 2ND,99 3RD,57.5 4TH,-5 * RANDOM PRINTCOMMAND DEMOEXP$-PRINTGR SAMPLE PU 1 , 1 , 1 2 , 1 , 2 3 , 1 , 3 4 , 1 , 4 5 , 1 , 5 6 , 1 , 6 7 , 1 , 7 FRIENDLY FLOPPYNW2AKKK"; nC0:A$""C(A$)+ oA$""(A$)E pB$""CC(B$)256X qB$""(B$)j r((C),2)X$; t#1,B$:ST0140 uB$(32)"."; vB$(34)"["; wB$(34)116 x #1,B$:B$(34)B$;:120 zB$(34)"]"; #1,B$(648)256 4,4:43 CL024:QF0:AS$MR$:RO039I $SC(VR40CLRO)\ .SC34QF1QFn 8SC1621110 BQF1QF:QF1AS$AS$RV$QT$:1170 VQF1(SC128)SCSC128:1130 `SC128SCSC128:RF1:AS$AS$RV$ jSC32SC95ASSKP NUMBER 5 FIVE 555 55 5555 5 5 5.00 MAY 5 555 5555 NONE NUMBER 6 SIX 666 66 6666 12 N 6.66 6 JN 69 666 6666 NONE SAMPLE RECORD KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK